(electric-help-command-loop): Check whether the last character is visible,

not (point-max).

diff --git a/lisp/ehelp.el b/lisp/ehelp.el
index 641faca557aa7de50bf7d39ff8b949d672567aca..e80c129d3ea68a6362c010114fe611232cedceb1 100644 (file)
--- a/lisp/ehelp.el
+++ b/lisp/ehelp.el
@@ -215,7 +215,7 @@ BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit."
                      ;beginning-of-buffer - otherwise pos-visible-in-window-p
                      ;will yield a wrong result.
          (let ((min (pos-visible-in-window-p (point-min)))
-               (max (pos-visible-in-window-p (point-max))))
+               (max (pos-visible-in-window-p (1- (point-max)))))
            (cond (isearch-mode 'noprompt)
                  ((and min max)
                   (cond (standard "Press q to exit, r to retain ")